-- الاستعلام الأول
SELECT Bill.CompanyID, Company.[Nom &Prénom &fr], Company.N_Entrep, Company.[N° CompteRib], Company.[Centre de chéques Postaux], Company.[adress], -1 AS TheType, Sum(Bill.Bill_Value) AS TheValue, Add_Observations([Bill].[CompanyID],"Bill") AS Obsérvation, -1 AS M
FROM Company INNER JOIN Bill ON Company.CompanyID = Bill.CompanyID
WHERE Bill.Trans_ID = 2
GROUP BY Bill.CompanyID, Company.[Nom &Prénom &fr], Company.N_Entrep, Company.[N° CompteRib],Company.[Centre de chéques Postaux], Company.[adress], -1, Add_Observations([Bill].[CompanyID],"Bill"), Month([Bill_Date]), Year([Bill_Date])
HAVING (((Month([Bill_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth1]))) AND ((Year([Bill_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth1]))));